www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\inc\fck_(important)-b\D_edit_a_template.asp

    
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>


<LINK href="css_www_aspcpu_com_newdsoft_ruandingyuan_x.css" type=text/css rel=stylesheet>
<%

dir_set="$$dir_set$$"
response.charset="gb2312"

%>


<!--#include file=$$dir_set$$inc/conn.asp-->
<!--#include file=$$dir_set$$inc/Functionb.asp-->

<!--#include file=$$dir_set$$inc/ajaxLIB.asp-->

<!--#include file=checkadmin3_www_aspcpu_com_newdsoft_ruandingyuan_x.asp-->

<!--#include file=$$dir_set$$inc/functionFiless.asp-->

<!--#include file=$$dir_set$$inc/ND_class_function.asp-->




<%
AJAXshowLoader()


%>



<%


ss4=request("fname")





strDBPath12= left(ss4,instrrev(ss4,"/"))


sssssss1=""
for i=1 to len(ss4)

if mid(ss4,len(ss4)-i+1,1)="/" then

sssssss1=i
exit for
end if
next


if sssssss1<>"" then
sssssss1=right(ss4,sssssss1-1)
else
sssssss1=ss4
strDBPath12=""
end if




'strDBPath1=路径
'filename=文件名
filename2=sssssss1

























ss4=request("pname")&"/"&request("fname")





strDBPath1= left(ss4,instrrev(ss4,"/"))


sssssss1=""
for i=1 to len(ss4)

if mid(ss4,len(ss4)-i+1,1)="/" then

sssssss1=i
exit for
end if
next


if sssssss1<>"" then
sssssss1=right(ss4,sssssss1-1)
else
sssssss1=ss4
strDBPath1=""
end if




'strDBPath1=路径
'filename=文件名
filename=sssssss1



dddd=loadfile("$$dir_set$$templates/"&ss4)



%>

<div  id="l_do" style="filter:blendTrans(duration=1); width:734px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 40px;">

<form action="D_chk_edit_a_template_www_aspcpu_com_newdsoft_ruandingyuan_x.asp" method="post">
<table width=730 id="parms" name="parms">




<tr align="left">

<td>


<font style="font-size:17px; color:#ff0000">编辑 子模板 
</font>


<br><br>




模板保存路径:/templates/<%=ss4%>

</td>
</tr>







<tr align="left">

<td>

<%


sssp=request("fpath")

if sssp<>"" then
sssspq=split(sssp,"/")

ooosss=""

sssr=ubound(sssspq)-1


dddds=sssspq(sssr)
end if

%>
<script language="javascript">
function del_fr(){

if (confirm("确认删除?")==1){

self.location="D_del_a_moban_www_aspcpu_com_newdsoft_ruandingyuan_x.asp?fname=<%=ss4%>&pid=<%=request("pid")%>";


}

}


</script> 

<br /><br />


<a href=# onclick="del_fr();"><font style="font-size:14px" color="#3300FF">
删除此模板</font></a>

<input type="button" onClick="javascript:self.location='$$dir_set$$admin/adminTemplates/D_copy_moban.asp?pname=<%=fnnnnnname%>&filename=<%=strDBPath12&"copy_"&filename2%>&filenameb=<%=filename%>&pid=<%=request("pid")%>&fpath=<%=request("fpath")%>';" value="复制此模板" />

<br /><br />


</td>
</tr>





</table>




<table>





<tr align="left"><td>
<font style="font-size:14px" color="#3300FF">
模板代码支持与asp代码混合写,不支持标签嵌套,但是支持标签代码内再用标签<br />
<br />调用标签时可以用$xx_var_asp$i来调用页面里asp代码中的i变量的值，
<br />
如{$$show_class(1,$xx_var_asp$i)，使标签与asp代码交互<br />
而用$xx_request_asp$i可以读request("i")的值
</font>

</td>
</tr>
<tr align="left">

<td>









<%if request("edittype")="0" then%>
<hr />
<table>



<tr valign="middle" align="center"><td width=80>


模板代码：</td>

<td width=600>
<script src="../inc/admin.js" type="text/javascript"></script>

<textarea name="Content" cols=70 rows=20><%=replace(replace_textare_for_editor(dddd&""),"%",chr(37))%></textarea>



<br><a href="javascript:admin_Size(-10,'Content')"><img src="$$dir_set$$images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(10,'Content')"><img src="$$dir_set$$images/plus.gif" unselectable="on" border='0'></a>
</td>

</tr>
</table>

<%else



if instr(1,lcase(dddd),"</textarea>",1)<>0 then



%>




<script language=javascript>
alert("模板代码含textarea标签，请用代码模式编辑");
history.go(-1);

</script>


<%
end if








%>



<hr />
<table><tr valign="middle" align="center"><td width=80>


模板代码：</td>

<td width=600>


<textarea name="Content" id="Content" style="display:none"><%=replace(replace_textare_for_editor(dddd&""),"%",chr(37))%></textarea>










<%
	
Function GetLocationURL() 
Dim Url 
Dim ServerPort,ServerName,ScriptName,QueryString 
ServerName = Request.ServerVariables("SERVER_NAME") 
ServerPort = Request.ServerVariables("SERVER_PORT") 
ScriptName = Request.ServerVariables("SCRIPT_NAME") 
QueryString = Request.ServerVariables("QUERY_STRING") 
Url="http://"&ServerName 
If ServerPort <> "80" Then Url = Url & ":" & ServerPort 


'Url=Url&ScriptName 
'If QueryString <>"" Then Url=Url&"?"& QueryString 


GetLocationURL=Url 
End Function



 Function GetUrlpath() 

ScriptAddress = CStr(GetLocationURL()) '取得当前地址 


 
GetUrlpath = ScriptAddress 
End Function



session("picbase")=GetUrlpath()&"/templates/"&left(ss4,len(ss4)-1)
session("basepath_pre")=request("d")
%>
<%

if instr(1,lcase(dddd),"<html>")<>0 and instr(1,lcase(dddd),"</html>")<>0 then


session("ndedt_full")="true"

else

session("ndedt_full")="false"



end if

%>








<script src="$$dir_set$$ND_editor/FCKeditor2_5/FCKeditor_fullpage.asp?dirstr=<%=request("dirstr")%>&basepath=<%="$$dir_set$$templates/"&strDBPath1%>"></script>


<script type="text/javascript">
<!--



var oFCKeditor = new FCKeditor('Content') ;
oFCKeditor.BasePath = '$$dir_set$$templates/<%=strDBPath1%>' ;
oFCKeditor.ToolbarSet = 'Default' ;
oFCKeditor.Width = '100%' ;
oFCKeditor.Height = '500' ;
oFCKeditor.Value = '' ;
oFCKeditor.ReplaceTextarea() ;



//-->


</script>




</td>

</tr>




</table>



<%end if%>








</td>
</tr>




<tr align="center" width=600>

<td>
<input type="hidden" name=pid value="<%=request("pid")%>" />

<input type="hidden" name=fname value="<%=request("fname")%>"/>

<input type="hidden" name=pname value="<%=request("pname")%>"/>
<input type="hidden" name=ss4 value="<%=ss4%>"/>


<input type="submit" value="修改并刷新前台对应页面" />

</td>
</tr>



</table>

</form>
</div>






<script language=javascript>




AJAXfade(1,'l_do');

</script>


<%
AJAXcloseLoader()
%>